﻿<Serializable()> _
Public Class EventRectangle


    Private m_topLeft As Point
    Private m_bottomRight As Point

    Public Sub New(ByVal p_TopLeft As Point, ByVal p_BottomRight As Point)
        m_topLeft = p_TopLeft
        m_bottomRight = p_BottomRight
    End Sub

    Public Property TopLeft() As Point
        Get
            Return m_topLeft
        End Get
        Set(ByVal value As Point)
            m_topLeft = value
        End Set
    End Property

    Public Property BottomRight() As Point
        Get
            Return m_bottomRight
        End Get
        Set(ByVal value As Point)
            m_bottomRight = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return "(" & TopLeft.ToString & " , " & BottomRight.ToString & ")"
    End Function




End Class
